COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	\magnification\magstephalf
C00009 ENDMK
C⊗;
\magnification\magstephalf
\input macro.tex
\def\today{\ifcase\month\or
  January\or February\or March\or April\or May\or June\or
  July\or August\or September\or October\or November\or December\fi
  \space\number\day, \number\year}
\baselineskip 14pt
\rm
\line{\sevenrm a93.tex[106,phy] \today\hfill}

\font\rmn=amr9
\bigskip
\line{\bf Appendix \_\_\_: Reserved Words [SWP]\hfil}

\bigskip
$$\vcenter{\halign{#\hfil\qquad&#\hfil\qquad&#\hfil\qquad&#\hfill\cr
and&end&nil&set\cr
array&file¬&then\cr
begin&for&of&to\cr
case&function&or&type\cr
const&goto&packed&until\cr
div&if&procedure&var\cr
do&in&program&while\cr
downto&label&record&with\cr
else&mod&repeat\cr
}}$$


\vfill\eject

\line{\bf Appendix \_\_\_: Standard Predefined Identifiers [SWP]\hfil}

$$\vcenter{\halign{#\hfil\qquad%
&#\hfil\qquad%
&#\hfil\qquad%
&#\hfil\qquad%
&#\hfil\qquad%
&#\hfil\cr
{\it Constants}&false&true&maxint\cr
{\it Types}&integer&boolean&real&char&text\cr
{\it Files}&input&output\cr
}}$$

\bigskip
\bigskip
\bigskip
\bigskip
\line{\bf Appendix \_\_\_: Standard Identifiers [SWP]\hfil}

$$\vcenter{\halign{#\hfil\quad&#\hfil\quad&#\hfil\quad&#\hfil\cr
&\hfill {\it Types}\cr
{\it Name}&{\it Parameter}&{\it Result}&{\it Description}\cr
\noalign{\smallskip}
abs$(x)$&integer or real&Same as parameter&Absolute value\cr
$\arctan(x)$&integer or real&real&Inverse tangent\cr
chr$(x)$&integer&char&Character whose ordinal number is $x$\cr
$\cos(x)$&integer or real&real&Cosine\cr
eof$(f)$&file&boolean&End-of-file indicator\cr
eoln$(f)$&file&boolean&End-of-line indicator\cr
$\exp(x)$&real or integer&real&$e↑x$\cr
ln$(x)$&real or integer&real&Natural logarithm\cr
odd$(x)$&integer&boolean&True if $x$ is odd\cr
&&&False otherwise\cr
ord$(x)$&User-defined ordinal,&integer&Ordinal number of $x$\cr
&char, boolean&&in the ordinal data type of which\cr
&&&$x$ is a member\cr
pred$(x)$&ordinal&Same as parameter&Predecessor of $x$\cr
round$(x)$&real&integer&Nearest integer to $x$\cr
$\sin(x)$&real or integer&real&Sine\cr
sqr$(x)$&real or integer&Same as parameter&Square of $x$\cr
sqrt$(x)$&real or integer&real&Square root\cr
succ$(x)$&ordinal&Same as parameter&Successor of $x$\cr
trunc$(x)$&real&integer&Closest integer from $x$ to zero\cr}}$$

\vfill\eject

\line{\bf Appendix \_\_\_: Standard Procedures [SWP]\hfil}

$$\vcenter{\halign{#\hfil\qquad&#\hfil\cr
{\it Name (parameters)\/}&{\it Description\/}\cr
\noalign{\smallskip}
dispose$(p)$&Removes the dynamic variable referenced by pointer $p$\cr
\noalign{\smallskip}
get$(f)$&Advances file $f$ to the next component and places the\cr
&value of the component in $f\uparrow$\cr
\noalign{\smallskip}
new$(p)$&Creates a new variable that is accessed through pointer $p$\cr
\noalign{\smallskip}
pack$(a,i,z)$&Takes the elements beginning at subscript position $i$ of\cr
&array $a$ and copies them into packed array $z$ beginning at\cr
&the first subscript position\cr
\noalign{\smallskip}
page$(f)$&Causes the printer to skip to the top of a new page before\cr
&printing the next line of text file $f$\cr
\noalign{\smallskip}
$\!\!\displaystyle{\left.{\hbox{read}(\ldots)\hbox{\phantom{ln}}\atop 
\hbox{readln}(\ldots)}\right\}}$&Reads information from text files\cr
\noalign{\smallskip}
reset$(f)$&Opens file $f$ at its beginning for reading\cr
\noalign{\smallskip}
rewrite$(f)$&Empties file $f$ and opens it for writing\cr
\noalign{\smallskip}
unpack$(z,a,i)$&Takes the elements beginning at the first subscript\cr
&position of packed array $z$ and copies them into array $a$\cr
&beginning at subscript position $i$\cr
$\!\!\displaystyle{\left.{\hbox{write}(\ldots)\hbox{\phantom{ln}}\atop 
\hbox{writeln}(\ldots)}\right\}}$&Writes information to text files\cr}}$$



\bigskip
\line{\copyright 1985 Robert W. Floyd\hfill}
\line{First draft (not published) October 3, 1985;\hfil}
%revised: Date; subsequently revised.\hfill}

\bye